home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSCRSR.for < prev    next >
Text File  |  1991-05-01  |  1KB  |  45 lines
  1.         SUBROUTINE GSCRSR(X,Y,IBUTN,IERR)
  2.         IMPLICIT NONE
  3. C
  4. C       THIS DIGLIB SUBROUTINE TRIES TO GET GRAPHIC INPUT FROM
  5. C       THE CURRENTLY SELECTED DEVICE.   IF THE DEVICE IS NOT CAPABLE
  6. C       OF IT, IERR=-1, ELSE IERR=0 AND:
  7. C         X     = X POSITION OF CURSOR IN VIRTUAL COORDINATES
  8. C         Y     = Y POSITION OF CURSOR IN VIRTUAL COORDINATES
  9. C         IBUTN = NEW BUTTON STATE
  10. C
  11.  
  12.         REAL*4 X,Y,DUMMY
  13.         INTEGER IBUTN,IERR
  14.     INTEGER*1 IAND
  15.  
  16.         INCLUDE DIGLIB$KOM:GCDCHR.PRM
  17.         INCLUDE DIGLIB$KOM:GCDPRM.PRM
  18.  
  19.         REAL*4 ARRAY(3)
  20. C
  21. C       SEE IF DEVICE SUPPORTS CURSOR
  22. C
  23.         IF (IAND(IDVBTS,1024) .EQ. 0) GO TO 900
  24. C
  25. C       NOW ASK FOR CURSOR FROM DEVICE DRIVER
  26. C
  27.         CALL GSDRVR(12,ARRAY,DUMMY)
  28. C
  29. C       CONVERT ABSOLUTE CM. COORD. TO VIRTUAL COORDINATES
  30. C
  31.         CALL GSIRST(ARRAY(2),ARRAY(3),X,Y)
  32. C
  33. C       GET BUTTON STATE
  34. C
  35.         IBUTN = ARRAY(1)
  36. 120     CONTINUE
  37.         IERR = 0
  38.         RETURN
  39. C
  40. C       DEVICE DOESN'T SUPPORT GIN
  41. C
  42. 900     IERR = -1
  43.         RETURN
  44.         END
  45.